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-- DisplayDefs.mesa; edited by Johnsson; March 2, 1978 3:35 PM 

DIRECTORY 

FontDefs: FROM "fontdefs", 
StreamDefs: FROM "streamdefs" ; 

DisplayDefs: DEFINITIONS - 

BEGIN 

Background: TYPE = {white, black}; 

SetSystemDisplaySize: PROCEDURE [nTextLines, nPages: CARDINAL]; 

SetSystemDisplayWidth: PROCEDURE [indent, width: CARDINAL]; -- bits 

SetDummyDisplaySize: PROCEDURE [nScanLines: CARDINAL]; 

InitDisplay: PROCEDURE [dummySize, textLines. nPages: CARDINAL, f: FontDefs. FontHandle]; 

DisplayOff: PROCEDURE [color: Background]; 

DisplayOn: PROCEDURE; 

BlinkCursor: PROCEDURE RETURNS [BOOLEAN]; -- TRUE if cursor is on 

SetTypeScript: PROCEDURE [StreamDefs .DiskHandle]; 

DisplayControl : PROGRAM; 

NotEnoughSpaceForDisplay: ERROR; 

-- use these only if you know what you're doingl 

SetFont: PROCEDURE [FontDefs . FontHandle] ; 

END. 


